procedure Test2;